unit Rot_Report;

interface

uses SqlExpr, DBClient, frxClass, frxDBSet, IBODataset, IB_Components;

function CarregaRel(pNum : Integer) : String;
{procedure LoadReport(pQuery : TIBOQuery; pNum : Integer; pTitulo : String = ''; pSubTitulo : String =  ''); overload;
procedure LoadReport(pQuery : TIB_Cursor; pNum : Integer; pTitulo : String = ''; pSubTitulo : String =  ''); overload;
procedure LoadReport(pQuery : TClientDataSet; pNum : Integer; pTitulo : String = ''; pSubTitulo : String =  ''); overload;
}

implementation

uses Var_Global, UFrmReport, SysUtils;

function CarregaRel(pNum : Integer) : String;
var vDir : String;
begin
  vDir := GS_CAMINHO_REL;

  case (pNum) of
    01 : Result := vDir + '\REL DISTRIBUIDORA.FR3';
    02 : Result := vDir + '\REL RUA.FR3';
    03 : Result := vDir + '\REL CIDADE.FR3';
    04 : Result := vDir + '\REL ESTADO.FR3';
    05 : Result := vDir + '\REL PAIS.FR3';
    06 : Result := vDir + '\REL FABRICANTE.FR3';
    07 : Result := vDir + '\REL GRUPO.FR3';
    08 : Result := vDir + '\REL SUBGRUPO.FR3';
    09 : Result := vDir + '\REL TIPOCONTEUDO.FR3';
    10 : Result := vDir + '\REL TIPOMIDIA.FR3';
    11 : Result := vDir + '\REL TIPOTELEFONE.FR3';
    12 : Result := vDir + '\REL LOCATARIO.FR3';
    13 : Result := vDir + '\REL LOCATARIO2.FR3';
    14 : Result := vDir + '\REL MIDIA.FR3';
    15 : Result := vDir + '\REL MIDIA2.FR3';
    16 : Result := vDir + '\REL MIDIAPROCURA.FR3';
    17 : Result := vDir + '\REL EMPRESTIMODEVOL.FR3';
    18 : Result := vDir + '\REL EMPRESTIMOPENDENTE.FR3';
    19 : Result := vDir + '\REL EMPRESTIMOMAIS.FR3';
    20 : Result := vDir + '\REL OPERADOR.FR3';
    21 : Result := vDir + '\REL REGRA.FR3';
  end;
end;

{procedure LoadReport(pQuery : TIBOQuery; pNum : Integer; pTitulo : String = ''; pSubTitulo : String =  ''); overload;
begin
  with FrmReport do begin
    DBDataset.DataSet := pQuery;
    frxReport.LoadFromFile(CarregaRel(pNum));

    frxReport.Variables['Rel_Titulo'   ] := QuotedStr(pTitulo);
    frxReport.Variables['Rel_SubTitulo'] := QuotedStr(pSubTitulo);

    frxReport.ShowReport();
  end;
end;


procedure LoadReport(pQuery : TIB_Cursor; pNum : Integer; pTitulo : String = ''; pSubTitulo : String =  ''); overload;
begin
  with FrmReport do begin
    DBDataset.DataSet := pQuery;
    frxReport.LoadFromFile(CarregaRel(pNum));

    frxReport.Variables['Rel_Titulo'   ] := QuotedStr(pTitulo);
    frxReport.Variables['Rel_SubTitulo'] := QuotedStr(pSubTitulo);

    frxReport.ShowReport();
  end;
end;


procedure LoadReport(pQuery : TClientDataSet; pNum : Integer; pTitulo : String = ''; pSubTitulo : String =  ''); overload;
begin
  with FrmReport do begin
    DBDataset.DataSet := pQuery;
    frxReport.LoadFromFile(CarregaRel(pNum));

    frxReport.Variables['Rel_Titulo'   ] := QuotedStr(pTitulo);
    frxReport.Variables['Rel_SubTitulo'] := QuotedStr(pSubTitulo);

    frxReport.ShowReport();
  end;
end;}

end.


